Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/dtadmo/form1.frm

Visual Basic Form | 1994-10-15 | 7.5 KB | 258 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   4305
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7365
   Height          =   4710
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   4305
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommandButton cmdEnd
      Caption         =   "End"
      Height          =   615
      Left            =   5400
      TabIndex        =   21
      Top             =   3480
      Width           =   1815
   End
   Begin CommandButton cmdDemoDtaCtrl
      Caption         =   "Demo data control"
      Height          =   255
      Left            =   1440
      TabIndex        =   8
      Top             =   3840
      Width           =   2055
   End
   Begin CommandButton cmdKillMDBFile
      Caption         =   "Kill USPLACE.MDB"
      Height          =   615
      Left            =   5400
      TabIndex        =   9
      Top             =   960
      Width           =   1815
   End
   Begin CommandButton cmdDemoDupeErr
      Caption         =   "Demo dup index err"
      Height          =   255
      Left            =   1440
      TabIndex        =   7
      Top             =   3480
      Width           =   2055
   End
   Begin CommandButton cmdSeekOnName
      Caption         =   "Seek on Name Index"
      Height          =   255
      Left            =   1440
      TabIndex        =   6
      Top             =   3120
      Width           =   2055
   End
   Begin CommandButton cmdNameIndex
      Caption         =   "Add Index on Name"
      Height          =   255
      Left            =   1440
      TabIndex        =   5
      Top             =   2760
      Width           =   2055
   End
   Begin CommandButton cmdLoadFile
      Caption         =   "Load File w/ Data"
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   2400
      Width           =   2055
   End
   Begin CommandButton cmdAddPrimaryKey
      Caption         =   "Add Primary Key"
      Height          =   255
      Left            =   1440
      TabIndex        =   3
      Top             =   2040
      Width           =   2055
   End
   Begin CommandButton cmdAddField
      Caption         =   "Add Field to Table"
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   1680
      Width           =   2055
   End
   Begin CommandButton cmdMakeTable
      Caption         =   "Make Table"
      Height          =   255
      Left            =   1440
      TabIndex        =   1
      Top             =   1320
      Width           =   2055
   End
   Begin CommandButton cmdMakeDataBase
      Caption         =   "Make Data base"
      Height          =   255
      Left            =   1440
      TabIndex        =   0
      Top             =   960
      Width           =   2055
   End
   Begin Label Label3
      Height          =   735
      Left            =   3600
      TabIndex        =   20
      Top             =   2400
      Width           =   3615
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 9"
      Height          =   255
      Index           =   8
      Left            =   120
      TabIndex        =   19
      Top             =   3840
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 8"
      Height          =   255
      Index           =   7
      Left            =   120
      TabIndex        =   18
      Top             =   3480
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 7"
      Height          =   255
      Index           =   6
      Left            =   120
      TabIndex        =   17
      Top             =   3120
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 6"
      Height          =   255
      Index           =   5
      Left            =   120
      TabIndex        =   16
      Top             =   2760
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 5"
      Height          =   255
      Index           =   4
      Left            =   120
      TabIndex        =   15
      Top             =   2400
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 4"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   14
      Top             =   2040
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 3"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   13
      Top             =   1680
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 2"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   12
      Top             =   1320
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 1"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   11
      Top             =   960
      Width           =   1095
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Click buttons in sequential order to see things work properly. Then, delete the db and/or try things out of order or click buttons more than once to see the errors generated and trapped."
      Height          =   855
      Left            =   240
      TabIndex        =   10
      Top             =   0
      Width           =   4335
   End
Sub cmdAddField_Click ()
    addfield
End Sub
Sub cmdAddPrimaryKey_Click ()
    makeindex
End Sub
Sub cmdDemoDtaCtrl_Click ()
    form2.Show 1
End Sub
Sub cmdDemoDupeErr_Click ()
    'the primary key must be unique and if
    'the project is run in order, Tucson
    'will already be in the database
    addtucson
End Sub
Sub cmdEnd_Click ()
    End
End Sub
Sub cmdKillMDBFile_Click ()
'Global Const MB_YESNO = 4              ' Yes and No buttons
'Global Const IDYES = 6                 ' Yes button pressed
'Global Const MB_DEFBUTTON2 = 256       ' Second button is default
    Dim response As Integer
    response = MsgBox("Are sure you want to delete the MDB database?", MB_YESNO + MB_DEFBUTTON2)
    If response = IDYES Then killmdb
End Sub
Sub cmdLoadFile_Click ()
    additems Label3
End Sub
Sub cmdMakeDataBase_Click ()
    makedb
End Sub
Sub cmdMakeTable_Click ()
    maketable
End Sub
Sub cmdNameIndex_Click ()
    addnameidx
End Sub
Sub cmdSeekOnName_Click ()
    seekname
End Sub
Sub Form_Load ()
    If Right$(app.Path, 1) = "\" Then
        ThePath = app.Path
    Else
        ThePath = app.Path & "\"
    End If
End Sub